home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1997 March / Image.iso / wd.dxr / Postit_12_Postit Select.ls < prev    next >
Encoding:
Text File  |  1996-10-28  |  825 b   |  32 lines
  1. global gPostitSprite, gPlayers, gPostitMode, gPostitActive
  2.  
  3. on mouseUp
  4.   RestoreSpriteCursors()
  5.   ReactivateSprites()
  6.   set gPostitActive to 0
  7.   if the clickOn = (gPostitSprite + 3) then
  8.     if gPostitMode = #delete then
  9.       repeat with l in gPlayers
  10.         if getAt(l, 1) = the text of cast "NameField" then
  11.           deleteOne(gPlayers, l)
  12.           set the text of field "NameField" to EMPTY
  13.           set the visible of sprite 5 to 0
  14.           SpriteCursor(5, 0)
  15.           exit repeat
  16.         end if
  17.       end repeat
  18.     else
  19.       put "exit"
  20.       go(label("EndeDerWelt"))
  21.     end if
  22.   else
  23.   end if
  24.   if the castNum of sprite 36 = the number of member "WettVideo" then
  25.     KickBetVideo()
  26.     repeat with i = 3 to 6
  27.       set the visible of sprite i to (36 + i) = the clickOn
  28.     end repeat
  29.   end if
  30.   continue()
  31. end
  32.